function [fzero] = expan_frame_pitch_autocorr(frame, fs)

% EXPAN_FRAME_PITCH_AUTOCORR
%   EXPAN_PITCH_AUTOCORR(SIGNAL, FS, WINDOW, HOP) calcula o pitch de um  
%   quadro cuja frequencia de amostragem e FS, utilizando uma janela de
%   tamanho WINDOW e salto de tamanho HOP. Para o calculo do picth e usado
%   o metodo de deteccao por autocorrelacao.



len = length(frame);
autcor = expan_autocorr(frame);

fator = 40;
x = linspace(0,len,len);
xi = linspace(0,len,fator*len);
autocorr = interp1(x,autcor,xi,'cubic');


i = 2;
while autocorr(i-1) > autocorr(i)
      i = i + 1;
end
[maxx,ind] = max(autocorr(i:((len/2)*fator)));

if numel(ind) == 0;
   ind = 2205; 
end   
Tzero = ind + i -1;


fzero = fs*fator / Tzero;

